DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


——————  — 
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| #*F LLE®® 1D® ©DBGNERMSG 
DDDDDDDD ~=«-BBBBBBBB GGGGGGGG NN NN EEEEEEEEEE RRRRRRRR MM mM = SSSSSSSS_—_« GGGGGGGG 
DDDDDDDD ~~ —« BBBBBBBB GGGGGGGG NN NN EEEEEEEEEE RRRRRRRR MM MM —_SSSSSSSS__ GGGGGGGG 
00 DD 68 BB GG NN WN EE RR RR MMMM MMMM SS GG 
dD DD 88 BB GG NN NN EE RR RR MMMM MMMM SS 6G 
dD DD 6B BB GG NNNN NN EE RR RR MM MM MM SS GG 
DD DD 88 BB GG NNNN NN EE RR RR MM MM MM SS GG 
DD DD 88888888 6G NN NN NN EEEEEEEE RRRRRRRR MM mM 6 SSSSSS_~—s«CGG 
DD DD 88888888 GG NN NN NN EEEEEEEE RRRRRRRR MM MM §=6«-SSSSSS__—sGG 
dD DD 8B BB GG GGGGGG NN  NNNN EE RR ‘ae eH SS GG 6GGGGG 
DD DD 8B BB GG GGGGGG NN NNNN EE RR RR vai neve SS GG G6GGGGG 
DD DD 8B 88 GG NN NN EE RR ORROOMM se SS GG GG ae 
dD DD 8B 8B NN NN EE RR ORRMM we SS 6G 6G rian 
DDDDDDDD ~«=—- BBBBBBBB NN NN EEEEEEEEEE RR RR MM MM SSSSSSSS 666666 te 
DDDDDDDD + —« BBBBBBBB GGGGGG NN NN EEEEEEEEEE RR RR MM MM SSSSSSSS G6GGGGG ae 
LL HII SSSSSSSS 
LL HI SSSSSSSS 
LL 11 $$ 
LL 11 SS 
LL II $$ 
Lt II $$ 
LL 11 SSSSSS 
LL 11 SSSSSS 
LL Il S$ 
LL 1] SS 
tL 1] SS 
tL 11 $$ 
LLLLLLLLLL III! SSSSSSSS 
LLLLLLLLLL H1111 SSSSSSSS 
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DULE DBGNERMSG (IDENT = ‘v04-000") = 

BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie@ DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!® ALL RIGHTS RESERVED. 


te THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
te COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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® 
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'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eempokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: DEBUG 
ABSTRACT: 


Version 3 debugger error output routines are contained in this module. In 
contrast to the version 2 de ugger. error messages are not handled by the 
exception handling mechanism. That is, error messages are not SIGNALed. The 
routines in this module call SYSSPUTMSG to recover and format the DEBUG 
messages from the system message file. The address of the version 2 debugger 
routine dbgSout_message is suppied as an action routine. It is this routine 
which actually outputs the message. SYSSPUTMSG is used instead of SYSSGETMSG 
because the parameters to SYSSPUIMSG resemble the the vector of longwords 
formed by a SIGNAL, a format which dbg$out_message expects. 


i 
i 
i 
i ENVIRONMENT: VAX/VMS 
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AUTHOR : David Plummer, CREATION DATE: 4/10/80 


MODIFIED BY: 
David Plummer, 10-Jul-80, DLP 


SSS eeEeErEre 


Ww 
NOUS WO OOnNOu 


! 2.2-001 10-Jul-80 DLP Added check for a null message vector ptr 


R. Title Feb 1983 Added parse and execute of DUMP 
command to this module (for lack 
of a better place to put it). 
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: This command is used by developers 
: to dump DEBUG internals. 


VERSION: v02.2-002 
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TABLE OF CONTENTS: 


FORWARD ROUTINE | 
DBGSNPAR 
DBGS$NEX CUTE DU DUMP, 
DBG F 


SSRIS 


! Parse DUMP —— 

' Execute DUMP ¢ ond 

! Outputs an informat onal message 

' Constructs a standard message argument vector 
' Outputs @ message argument vector 

! Constructs a syntax error message vect 


4 

@ 
ae 
4 
ve “ 
> 

es) 

o 

m 

oO 

** 


*VECT 
DBGS$NOUT es ECT NOVALUE, 


REQUIRE FILES: 


DONO UE WN 


REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
' 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
DBGSANALYZE_HASH: NOVALUE, 
DBGSDUMP_GLOBAL: NOVALUE, 
DBGSDUMP” SAT: a LUE, 
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0000 G0 0D 
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i : 

89 G ! 

90 8 DBGSGET_TEMPM ' Allocates Listed dynamic storage 
91 0B 4 ote ! Match input strin 

4 0 DBGSNN ' Get next word in input 

9 0 DBesour MUO, NOVALUE, i Called as an action routine by SYS$PUTMSG to 
94 0 ' output the error message. 

95 8 SYSSPUTMSG : ADDRESSING_MODE (GENERAL); ! System message output routine 

$$ 0 EXTERNAL 

ps DBGSGL_DEVELOPER: BITVECTOR(); ! Developer flags 

00 ! 

as 0 LITERALS 

08 0 Used for communication between PARSE_DUMP and EXECUTE_DUMP. 

05 LITERAL 

06 0 

07 

08 

09 

10 
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GLOBAL ROUTINE DBGSNPARSE_DUMP (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 


A return status is returned. 
BEGIN 
MAP 


INPUT DESC: REF DBGSSTG_DESC, 
VERB_RODE: REF DBGSVERB_NODE; 


i FUNCTI 

: This routine parses the DUMP command. This command dumps internal 
DEBUG data structures. The command is only available to developers. 
i INPUTS 

: INPUT DESC - The remaining command string. 

' VERB_RODE - Pointer to partially constructed parse tree 
MESSAGE_VECT - Error message vector 

i OUTPUTS 

: Information is printed at the terminal. 

The input string is updated to point beyond what we picked up. 

i 


$CS_CR = UPLIT BYTE (1, 

G$CS~GST = UPLIT BYTE (3, 'G 
DBG$CS"HASH = UPLIT BYTE (4, ‘HASH'S, 
DBGSCS"SAT = UPLIT BYTE (3, "SAT'); 


Check developer flag 0. This enables the DUMP command. 
if NOT .DBGSGL_DEVELOPERCO) 
THEN 


BEGIN 
»MESSAGE_VECT = DBGSNSYNTAX_ERROR(UPLIT BYTE(ZASCIC ‘DUMP')); 
oe STS$K_SEVERE; 


! Pick up the keyword. At the moment, we only support DUMP HASH, 
: but more keywords may be added later. 
SELECTONE TRUE OF 

SET 


! DUMP GST 
CDBGSNMATCH (.INPUT_DESC, DBGSCS_GST, 1)]: 
VERB_NODECDBGSL_VERB_OBJECT PTR] = DUMP_GST; 


! DUMP HASH. 
[DBGSNMATCH (.INPUT_DESC, DBGSCS_HASH, 1)): 
VERB_NODECDBGSL_VERB_OBJECT_PTR] = DUMP_HASH; 


! DUMP SAT. 
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1e2seb198e 42 
! 
COBGSNMATCH (, INPUT_DESC, DBGSCS_SAT, 1)]: 
VERB _NODECDBGSL_VERB_OBJECT_PTRJ = DUMP_SAT; 


} Any other DUMP argument is a syntax error. 
COTHERWISE): 


teat VEC 
DEG NMATCH(. INPUT_DESC, DBGSCS_CR, 1) 


DBGSNMAKE _ARG_VECT(DBG$_NEEDMORE ) 


749 AX-11 8 
2:17:11 


Liss-32 v4.0- 


74 
DEBUG.S Re DBGNERMSG.B32; 


DBGSNSYNTAX_ERROR (DBGSNNEXT_WORD(.INPUT_DESC))); 


RETURN STSSK_SEVERE; 
END; 


TES 
RETURN §TS$k_SUCCESS; 
END; 


-TITLE 
- IDENT 
-PSECT 
OD 01 00000 P.AAA BYTE 
03 444 P.AAB BYTE 
54 53 47 0000 -ASCII 
04 tie) P.AAC: .BYTE 
48 53 41 4 000 -ASCII 
g Q000B P.AAD: .BYTE 
54 41 0000C ASCII 
50 4D 55 44 04 OQOOOF P.AAE: .ASCII 
DBGSCS_CR= 
DBG$CS_GST= 
DBGSCS_HASH= 
DBGS$CS"SAT= 
XTRN 
EXTRN 
eEXTRN 
~EXTRN 
EXTRN 
EXTRN 
PSECT 
001C 000 ENTRY 
33 44444 4 op 3 000 oe 
SBS WP eee 
Dd 1 PUSHL 
1 19 BRB 
01 DD 00018 1% PUSHL 


DBGNERMSG 
\v04-000\ 


DBGSPLIT.NOWRT, 
1, 13 

3 

\GST\ 

\HASH\ 

3 


SHR, PIC,0 


\SAT\ 
<4>\DUMP\ 
P.AAA 


P.AAB 
. 


P. AAD 
DBGSANALYZE_HASH 
DBGSDUMP_GLOBAL 

DBGSDUMP~ SAT DacsceT _TEMPMEM 
DBGSNMATCH, OBGSNNEXT—WORD 
DBGSOUT_MESSAGE 

SYSSPUTASG, DBGSGL_DEVELOPER 


DBGSCODE .NOWRT, SHR, PIC.0 


DBGSNPARSE _DUMP, Save R2,R3,R4 
DBGSNMATCH, R4 


P.AAE, R 
on sete 1$ 
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F3 AS OOF 1 PUSHAB DBGS$CS_GST : 
52 04 ac 00 5 MOVL INPUT_BESC, R2 3 
52 OD 4 PUSHL R : 
4 FB $ CALLS #3, DBGSNMATCH : 
1 : CMPL) SRO, #1 : 
50 0B AC 06 SS Se, «SERS_NOOE. RO : 0289 
08 Ad 05 D 6 MOVL #2, 8(RO) : 
: 11 000 BRB 8 + 0282 
1 po 00 28: PUSHL #1 + 0294 
F7 AS 9F OOO3A PUSHAB DBGSCS_HASH : 
DD D PUSHL R : 
64 FB F CALLS #3, DBGSNMATCH : 
01 0 01 4g (MPL —seRO. #1 : 
50 08 Ae DO O00? SOV, VERB_NODE, RO : 0296. 
88 AO D4 00048 CLRL (ROY : | 
4B 11 0004 BRB + 0282) 
01 pp 0050 3$ PUSHL #1 + 0301 
FC «OAS OOF 0005 PUSHAB DBGSCS_SAT : 
3 DD 0005 PUSHL 3 
64 03 FB 00047 CALLS #3, DBGSNMATCH : 
01 50 01 0005A CMPL~=sRO, #1 : 
OA if 0005p BNEQ ; 
50 08 AC 00 0005F MOVL §§VERB_NODE, RO + 0303) 
08 ao 91 DO ie MOVL #1, 8(RO) 3 
2 11 0006 BRB 8$ : 0282. 
01 oD 90069 4$ PUSHL #1 : 0311 
f1 A3 9F 0006B PUSHAB DBGS$CS_CR ; 
32 DD 0006 PUSHL : 
64 2 FB 0007 CALLS #3, DBGSNMATCH é 
0D 0 €9 9007 BLBC : 
00028000 BF dD 00076 PUSHL #164048 : 0313 
0000v CF 01 FB 0007C CALLS #1, DBGSNMAKE_ARG_VECT : 
10 11 00081 BRB 7$ : 
52 DD 00083 5$ PUSHL R2 : 0315) 
000000006 00 01 FB 90085 CALLS #1, DBGSNNEXT_WORD ; 
50 oD 0008C PUSHL RO : 
0000v CF 01 FB 0008E 6$ CALLS #1, DBGSNSYNTAX_ERROR ; 
0c BC 50 00 00093 7$ MOVL RO, @MESSAGE_VECT : 031 
0 04 DO 00097 MOVL #4. RO : 031 
04 0009A RET : 
50 01 bd 0098 8 MOVL #1, RO : 31 
4 0009E RET : 032 


; Routine Size: 159 bytes, Routine Base: DBGSCODE + 0000 


anise 


; 13) 1 
3 138 § 
: 196 4 
; 13? 6 5 
5 139 8 
; 198 8 
s 199 y 
; 200 0 
3 4 b 1 
r 88 g 
: 206 0334 
; 205 0335 
; 206 0336 
; 207 0337 
; 208 0338 
3 598 83 9 
: 10 0340 
oh 
3 $18 Eek: 
3s 2 0344 
s 219 Bee? 
3 si¢ 346 
: 17 0347 
; 218 0348 
; 219 0349 
r $50 0350 
s el 0351 
3 $s¢ O326 
3 €e 035 

3 224 0354 
3s eo 0355 
: 226 0356 
3 eer 0357 
: 228 0358 


24 47 42 44 5C 
50 4D 55 
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GLOBAL ROUTINE DBGSNEXECUTE_DUMP (VERB_NODE, MESSAGE_VECT) = 
i FUNCTION 
Performs the action associated with the DUMP command. 
i INPUTS 
: OD - A pointer to the command tree 
MESSAGE _VECT - Error message vector 
i OUTPUTS 
: Information about internal DEBUG data structures will be printed 
} at the terminal. A status code is returned. 
BEGIN 

VERB_NODE: REF DBGSVERB_NODE; 


' Case on the DUMP keyword. DUMP HASH is the only one we currently 
support. 


CASE. - VERB_NODECDBGSL_VERB_OBJECT_PTRI FROM DUMP_MIN TO DUMP_MAX OF 
CDUMP_GST): 
DEGSDUMP_GLOBAL(); 


CDUMP_HASH): 
DBGSANALYZE_HASH(); 


CDUMP_ SAT): 
DEGSDUMP_SAT(); 


CINRANGE, OUTRANGE): 
$DBG_ERROR( * DBGNERMSG\DBGSNEXECUTE DUMP") ; 


TES; 
RETURN STS$K_SUCCESS; 
END; 


-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 


47 53 4D 52 45 rh} 47 rt} 44 1B 00014 P.AAF: .ASCII <27>\DBGNERMSG\<92>\DBGSNEXECUTE _DUMP\ 
44 SF 45 54 55 435 45 58 45 4E 00023 


-PSECT DBGSCODE,NOWRT, SHR, PIC.0 


0000 90009 .ENTRY DBGSNEXECUTE_DUMP, Save nothing 
50 04 ac p0 00002 MOVL VERB_NODE, 9 
02 00 08 ao CF 90006 CASEL (ROY, #0, # 
001D 002F 0026 0008 1$: . WORD 23-13-- 
2$-1$° 


00000000" EF 9F 00011 PUSHAB P.AAF 
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vee 12-8 00- 1 3he 93:98:45 DEBUG. SRC DBGNERMSG.B3 31 
1 DO 17 PUSHL #1 
00028362 F OD 19 PUSH #164706 
000000006 00 3 8 1F cat 4 » LIBSSIGNAL 
000000006 00 9 4 ; 23: i § + DBGSDUMP_GLOBAL 
000000006 00 re 1 3$: CALLS ss" DBGSANALYZE_HASH 
000000006 98 ? fe A 4$: CALLS #0, patel 
3 41 5$: MOVL wi, R 
4 00044 RET 


; Routine Size: 69 bytes, Routine Base: DBGSCODE + 009F 
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GLOBAL ROUTINE DBGSNOUT_INFO (ERROR_CODE) = 


own 


o 
NOUS WN—O” 


ee 


FUNCTIONAL DESCRIPTION: 
[ace cyet ine outputs an informational message to the user's terminal and/or 


ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
sts$k_success (1) = Success. Informational message output. 
sts$k_severe (4) - Failure. Message not an info and not output. 
SIDE EFFECTS: 
Outputs an informational message(s) to the user's terminal and/or log file. 


oO oO ooonowonovnnd 
QLESRANLSSSLSAEALSLS 
PIII III at st st tt 


i 
6 og file. 
6 i This routine will not output message that do not have an informational 
re : level of severity. 
29 FORMAL PARAMETERS: 
ys i error_code - A longword containing an integer value corresponding 
0 ie, to a DEBUG info message code 
75 i Cfao_count] - A longword ee ag the number of fao arguments supplied 
0 6 } in conjunction with the first message code. This optional 
8 aA parameter MUST be supplied if ANY fao arguments are supplied. 
0379 i Cfao_first, ...J = A Longueré containing an fao argument to be incorperated 
8 39 } into the info message text 
O38 ; C[next_code, next_count, next_fao, ...] 
0384 - The next message code, fao_count, fao_argument sequence. 
0386 i IMPLICIT INPUTS: 
038 ; 
0388 : NONE 
89 : 
IMPLICIT OUTPUTS: 
NONE 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! 
i 
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08 oo 

09 BEGIN 

10 

11 VILTIN 

I ACTUALCOUNT 

13 ACTUALPARAME TER; 
15 LOCAL 
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NUM_ACTUALS, ! Number of actual parameters 
! Loop counter 
ERROR_VECT i Message vector 


ARG_VECT : REF VECTOR; ! The message argument vector 


} Make sure that the message code corresponds to an info 
if .error_code <0, 3, 0> NEQ sts$k_info 
RETURN stsS$k_severe; 


Make the argument vector 
num_actuals = actualcount (); 


arg_vect = of>gsae et_tempmem(.num_actuals + 1); 
arg_vect (0 num _actuals; 


i FROM 1 TO .num_actuals 


RRRELLLLRLELLELRERREKRRRR 
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: arg_.vect C.i] = actualparameter (.i); 
0440 
0441 ! Output the message 
ory | : 
Rees dbg$nout_arg_vect (.arg_vect); 
Reed RETURN sts$k_success; 
0447 END; ! End of dbg$nout_info 
0004 00000 - ENTRY ar INFO, Save z ; 0359 
03 046 AC 03 00 £8 0000 CMPZ2vV = #0 ERROR_CODE, # ; 0424 
3 1 B38 BEQL 3 
50 4 D0 OO00A MOVL #4, RO ; 0426 
3 000D RET : 
52 6C 9A QOOOE 1$ MOVZBL (AP), NUM et ya $ P th 
01 A2 9F Bete PUSHAB Tcnun ACT TOAL : 0433 
000000006 00 1 fe 14 CALLS DBGS$GE MPMEM 3 
60 2 00 00018 MOVL nua ACTUALST ARG. VECT) : 0434 
1 04 0001 CLRL ; 0436 
05 11 000 BRB $ 3 
6041 6(41 0 oS 3 MOVL (AP)CIJ], (ARG_VECT)CI} : 0438 
‘7 51 28 : $ AOBLEQ NUM_ACTUALS, T, 2$ : 
0D 36 B PUSHL ARG_ : 0443 
o000v CF + 3 1) CALLS #1, DBGSNOUT_ARG_VECT : 
50 1 3 00 ¢ MOVL #i, RO 3; 0445 
4 000 RET > 0447 


; Routine Size: 54 bytes, Routine Base: DBGSCODE + O0E4 
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4 
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+) 
1 
5 
3 
8 
9 
40 
1 
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i 
7 
8 
49 
50 
33 
s 
54 
55 
56 
57 
58 
61 
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GLOBAL ROUTINE DBGSNMAKE_ARG_VECT (ERROR_CODE) = 


'e¢ 


FUNCTIONAL DESCRIPTION: 


Creates a oe argument vector as described on page 4-119 of 
the VAX/VMS system reference, volume 1A. 


This routine ALWAYS returns the address of a message argument vector. 
FORMAL PARAMETERS: 


error_code - A_longword containing an integer corresponding to a 
DEBUG message code 


Cfao_count] - A longword containing the number of fao arguments supplied 
in conjunction with error_code. This optionai parameter 
MUST be supplied if ANY fao arguments are supplied. 


Cfao_first, ...] = A longword containing an FAO argument to be inserted 
into the text of a DEBUG message 


Note that the above ss may be repeated to construct an argument 
vector for concatenated messages. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


An edt ge integer longword corresponding to the address of a message 


argument vector. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE 


BEGIN 


ILTIN 
ACTUAL COUNT 
ACTUALPARAME TER; 


LOCAL 
NUM_ACTUALS, ! Number of actual parameters 
: Loop counter — 
ERROR_VECT, i Error vector pointer 


y 


bie 93:36:47 AX-11 Bliss-32 V4.0-74 
14-Sep-19 217:11 DEBUG. SRC JDBGNERMSG.B32;1 


ARG_VECT : REF VECTOR; ! Messagr argument vector 


} Make the argument vector 
num_actuals = actualcount (); 


arg_vect = gogSoet tempmem(. num_actuals + 1); 
arg_vect (0 -Nnum_actuals; 


i FROM 1 TO .num_actuals 
arg_vect C.i] = actualparameter (.i); 
RETURN .arg_vect; 


PUPP SVSUSVSISI SSIS 


Ponoty ws 
WSOP NO AF UIVMODR ee 


END; ! End of dbg$nmake_arg_vect 
0004 00000 -ENTRY mgr ARG _VECT, Save R2 
52 6C 9A std MOVZBL (AP) ie ong TOALS 
01 A2 9F 0000 PUSHAB V<NUR A ALS) 
000000006 00 9 FB 00008 CALLS DBCSGET CT TEMPMEM 
60 2 00 OO000F MOVL NU ACTUALS, (ARG_VECT) 
51 04 00012 CLAL 
05 11 00014 BRB $ 
6041 6(41 00 00016 1$ MOVL (AP)CIJ, (ARG_VECT)CII 
7 51 52 F3 00018 2$ AOBLEQ NUM_ACTUALS, T, 1$ 
04 O001F RET 
; Routine Size: 32 bytes, Routine Base: DBGSCODE + O11A 


: 395 0523 1 


H 7 
RMSG 16-Sep-1984 01:42:49 AX-11 Bliss-32 V4.0-74 
voe 1 7308-1982 934 711 DEBUG. SRCIDBGNERMSG.039; 1 


GLOBAL ROUTINE DBGSNOUT_ARG_VECT (ARGUMENT _VECT) : NOVALUE = 


‘es 
FUNCTIONAL DESCRIPTION: 


4 

401 

4 § Outputs the DEBUG error message corresponding to the input message 
¢ argument vector to the user's terminal and/or log file. 

405 This routine should be invoked directly only by the DEBUG CLI. 


FORMAL PARAMETERS: 


VFN —OOONOUNSE 


s33e3 


i 

i 

i 

i 

i 

i 

i 

i 

i 

: argument_vect = A longword containing the address of a message argument 
: vector as described on page 4-119 of the VAX/VMS system 
: reference, volume 1A 

i IMPLICIT INPUTS: 

; The parameter argument_vect is set to 0 after the output 

i IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

; NONE 

i COMPLETION CODES: 

; NONE 

i SIDE EFFECTS: 

Writes a DEBUG error message to the user's terminai and/or log file. 
i 

i 

i 


BDNOVEWN —O OONOUS Wh 


MPR PoPofoNonony 2 


This routine signals a debugbug if there is no message to output. 


WN 9 OONAVUE WN "OC OONOUE WO 0M 


PAEXAPEQAEMMAAGIMMMNII ES SELLS 


SESFUNSLSS 


Pot ot ot ot ot ot ot ot ol ek lott de kt tt kt et tk ek kt tk 


COOOCQOOCOCOCCOCCOOCOOOCOOOOOOCOOOOOCoOoOSoOO 


ARIF IPIPIMIPIPIPFPIPINPIN IIIA at st tt tt kk i a tt 


BEGIN 
564 
565 
39 266 ' Check for no error message to output. 

440 56 : 
441 568 If .argument_vect EQLA 0 
ry 297 TH 
ot? 259 $DBG_ERROR( *DBGNERMSG\DBGSNOUT_ARG_VECT"); 
7 276 Output the message. 
ret 278 SYSSPUTMSG (.argument_vect, dbgSout_message, 0); 
449 278 RETURN; 
450 57 
451 578 END; ! End of dbg$nout_arg_vect 


7 
RMSG 16- Sep-1984 49 AX=11 Bliss-32 V4.0-7 P 15 
VoL 1-3-1 38¢ 93:4 DEBUG. SRC BBGNERMSS 83 31 at (7) 


.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
24 47 62 64 SC 47 53 & 45 GE 47 42 44 1B 00030 P.AAG: ASCII <27>\DBGNERMSG\<92>\DBGSNOUT_ARG_VECT\ ; 
ef cg 28 SS aS io? SF a $8 of 4E tie ot. 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 


0000 000 ENTRY pegsnout -ARG_VECT, Save nothing 3: 0524 
04 Ag b TSTL ARGUMENT_VECT 3; 0568 
1 BNEQ 1$ 3 
00000000' EF 9F PUSHAB P.AAG 3; 0570 

1 DO : PUSHL #1 3 

00028362 F OD OF PUSHL #164706 ; 

000000006 00 3 «FB 15 CALLS #3, LIBSSIGNAL 3 
3 be 1c 18 CLAL =(SP 3 0574 

000000006 0 F QOOIE PUSHAB DBGSOUT_MESSAGE 3 

04 DD 00024 PUSHL ARGUMENT _VECT : 

000000006 00 FB 00027 CALLS #3, SYSSPUTMSG 3 
04 0002E RET ; 0578 


; Routine Size: 47 bytes, Routine Base: DBGSCODE + 013A 


; 452 0579 +1 


7 
1b-Se “1984 01:42:49 AX-11 Bliss-32 V4.0-74 
10-885-1986 93:95:93 DEBUG. SRC JDBGNERMSG.B32;1 


GLOBAL ROUTINE DBGSNSYNTAX_ERROR (WORD_STRING) = 


ee 


FUNCTIONAL DESCRIPTION: 


Called as a result of the detection of a syntax error. Constructs a 
Syntax error message argument vector. 


i FORMAL PARAMETERS: 


NOUS WHO 


; word string - The word corresponding to the syntax error 
i IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 


wooo 


wn 


COOCCCOGOOCOCOOOCOOOCOCoOO 


STL Ab Ab AD Ab Ab Ab AL Ab Ab Ab Ab Ab Ab db db ab ih dh a 


SSSLERE 


' 

' 

! 

' 

' 

' 

' 

! 

| 

' 

' 

! 

1 

: The message argument vector associated with the syntax error. This includes 
: an ascii string descriiptor which points to the syntax error string. 
1 
! 
' 
1 
' 
' 
' 
] 
' 
' 
' 
' 
' 


s 
~“ 
= 
& 


i ROUTINE VALUE: 
The beginning address of the message argument vector 


oO 
_ 


QEARaN 


PIPPIN INPIMIMPIMINIMNIPIPININDM IAIN INI a a tk hh dd 
° . 


479 : COMPLETION CODES: 

480 . 
0 NONE 

48 0 } 

48 0 : SIDE EFFECTS: 

484 1 

485 1 NONE 

486 1 

487 1 aad 

488 1 BEGIN 

489 1 

490 1 MAP 

red : WORD_STRING : REF VECTOR C,BYTE); 
1 


OCAL 

ERROR _VECT : Error message pointer 

STRING_DESC : REF dbg$stg_desc; | String descriptor for error message 
} Get storage for the string descriptor 
string_desc = dbg$get_tempmem(2); 


: make the string descriptor 


string_desc [dsc$w_length] = .word_string £0}; 
string_desc ([dsc$a_pointer] = word_string (1); 


REWN —O OO VANE WO OONOUE WN O0@ 


© 
SSSSESESESESSSSSSSSSSS SSSI SS SS SSOP OSS 


SSESsare 


: Construct the vector and return it. 


RASG 16-Sep-19 74 +49 AX-11 Bliss-32 V4.0-74 
vivant 1b-se0-1946 9334 DEBUG. SRC JDBGNERMSG.B32; 1 


: 1} ih error_vect = dbgS$nmake_arg_vect (dbg$_syntax, 1, ay Pe 
; 18 ; RETURN .error_vect; 
; 515 1 END; ! End of dbg$nsyntax_error 
0000 $008 Pb 4 GSNSYNTAX_ERROR, Save nothing 
87 FB 90008 CALLS 
000000006 00 FB CALLS or sg bOesee! TEMPMEM 
60 04 C 98 00008 mov DASTRING (STRING DESC) 
04 ad 04 Ac 1 C1 0000F ADDL RD_STRING, 4(STRING DESC) 
0 dD 9015 PUSHL Rete 
1 DD 0001 PUSHL 
00028238 F Dd 00019 PUSHL #166408 
BE AF 3 FB OOOTF CALLS #3, DBGSNMAKE_ARG_VECT 
04 00023 RET 


; Routine Size: 36 bytes, Routine Base: DBGSCODE + 0169 


3 $% 0642 1 


re 


7 
1$-Sep-19 4 01: 14636 49 AX-11 BL Ai ggeze v4.0 


Used: 87 pages 
Compilation Complete 


14-Sep-1984 12:17:11 DEBUG.SR seenENMic 033; 31 
Set? 3 ) ELuDON 
~EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
> DBGSPLIT 76 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; DBGSCODE 397 NOVEC.NOWRT. RD. EXE. SHR. LCL. REL. CON, PIC.ALIGN(O) 
: Library Statistics 
3 eosseuse SyEbel§ coeecen Pages Processing 
: File Total Loaded Percent Mapped Time 
; $255$DUA28 :ESYSLIBILL .L32;1 18619 . 0 1009 00: :01..9 
; EBUG. OBJ STRUCDEF Fab 322 1 3 0 0 00: g.1 
; HEE : EDEBUG. 08 154 1 0 97 00:02.0 
; .$255$0UA28: (DEBUG. 0B) DE TREADS. (32:1 
3 418 9 8 31 00:00.4 
3 " $255$DUA28: CDEBUG.083D8GNSG.L32;1 386 22 00:00.3 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1IS$:DBGNERMSG/0BJ=0B8J$:DBGNERMSG MSRC$:DBGNERMSG/UPDATE=(ENH$S : DBGNERMSG) 
: gy RR 397 6248.5 + 76 data bytes 
: claseed Tine: 4203-8 
3 Lines/CPU Min: e ; 
3 Lexemes/CPU-Min: 
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